home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / SAT 2.4.0 & updates ƒ / SAT-TCL and demo / SATTest / SATTestIntf.p < prev    next >
Encoding:
Text File  |  1995-12-18  |  2.2 KB  |  101 lines  |  [TEXT/PJMM]
  1. {****************************************************}
  2. {}
  3. {        SATTestIntf.p                                                                                                                                                                                                    }
  4. {}
  5. {        Interface file for SATTest, which tries out SAT-TCL in a manner similar to            }
  6. {        the tutorial.                                                                                                                                                                                                        }
  7. {}
  8. {        Copyright © 1995 by Patrick C Hew. All rights reserved.                                                                }
  9. {}
  10. {****************************************************}
  11.  
  12.  
  13. unit SATTestIntf;
  14.  
  15. interface
  16.  
  17.     uses
  18.         TCL, SAT, SATTCLIntf, SATTestGlobals, sPlayer, sTarget;
  19.  
  20.     const
  21.  
  22.         { Command IDs. }
  23.  
  24.         cmdPlayCatch = 2000;
  25.  
  26.         { Resource IDs. }
  27.  
  28.         PICTColorBackground = 128;
  29.         PICTBWBackground = 129;
  30.  
  31.         WINDSATTest = 500;        { Resource ID for WIND template             }
  32.  
  33.  
  34. {****************************************************}
  35. {}
  36. {        CSATTestApp                                                                                                                                                                                                    }
  37. {}
  38. {        Application class for the SATTest.                                                                                                                                        }
  39. {}
  40. {****************************************************}
  41.  
  42.     type
  43.         CSATTestApp = object(CApplication)
  44.  
  45.                 { Initialization method. }
  46.                 procedure ISATTestApp;
  47.  
  48.                 { Implements a very simple About box. }
  49.                 procedure DoCommand (theCommand: longint);
  50.                 override;
  51.  
  52.                 { Creates the SATTest director. }
  53.                 procedure StartUpAction (numPreloads: Integer);
  54.                 override;
  55.  
  56.             end;
  57.  
  58.  
  59. {****************************************************}
  60. {}
  61. {        CSATTestDirector                                                                                                                                                                                        }
  62. {}
  63. {        Director class for the SATTest.                                                                                                                                                }
  64. {}
  65. {****************************************************}
  66.  
  67.     type
  68.         CSATTestDirector = object(CSATDirector)
  69.  
  70.                 { Initialization and destruction. }
  71.                 procedure ISATTestDirector (aSupervisor: CApplication);
  72.                 procedure Free;
  73.                 override;
  74.  
  75.                 { Setting up things. We put the director in charge of the sounds. }
  76.                 procedure BuildWindow;
  77.                 override;
  78.                 procedure SetUpSprites;
  79.                 override;
  80.                 procedure SetUpSounds;
  81.                 override;
  82.  
  83.                 { Procedures to make the director, as far as TCL is concerned. }
  84.                 procedure UpdateMenus;
  85.                 override;
  86.                 procedure DoCommand (theCommand: longint);
  87.                 override;
  88.  
  89.                 { Game playing stuff. }
  90.                 procedure PrepareForPlaying;
  91.                 override;
  92.                 procedure DoPlay;
  93.                 override;
  94.                 procedure FinishPlaying;
  95.                 override;
  96.  
  97.             end;
  98.  
  99. implementation
  100.  
  101. end. { SATTestIntf }